home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_cidfn.ps < prev    next >
Text File  |  2003-01-03  |  12KB  |  382 lines
  1. %    Copyright (C) 1995, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % ProcSet for implementing CIDFont and CIDMap resources.
  8. % When this is run, systemdict is still writable.
  9.  
  10. % ---------------- Defining CIDFont resources ---------------- %
  11.  
  12. % Define a CIDFont resource.  This is the defineresource implementation for
  13. % the CIDFont resource category.
  14.  
  15. /.checkfonttype {    % <cidfont> <fonttype> .checkfonttype <cidfont> <new?>
  16.   1 index /FID known {
  17.     1 index /FontType get ne {
  18.       /definefont cvx /invalidfont signalerror
  19.     } if false
  20.   } {
  21.     1 index /FontType 3 -1 roll put true
  22.   } ifelse
  23. } bind def
  24.  
  25. /.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse
  26. .cidfonttypes
  27.  
  28. 30 dict begin
  29.  
  30. % The key in .cidfonttypes is the CIDFontType value;
  31. % the value is a procedure that takes a font name and the CIDFont dictionary
  32. % and replaces the latter with a real font.
  33.  
  34. % ------ CIDFontType 0 (FontType 9) ------ %
  35.  
  36. % We add the following entries to the CIDFont dictionary, in addition to
  37. % the ones documented by Adobe:
  38. %    SubrCache - dictionary for caching Subr arrays
  39. % For CIDFonts where we read the data from disk incrementally:
  40. %    GlyphData is 0 (arbitrary)
  41. %    DataSource - a ReusableStreamDecode filter for the data
  42. % We also add a FID entry, and possibly a Subrs entry, to each element of
  43. % FDArray.
  44.  
  45. dup 0 {
  46.   9 .checkfonttype {
  47.     /CIDInit /ProcSet findresource begin
  48.     .completefont9
  49.     end
  50.   } if
  51.   1 index exch .buildfont9 exch pop
  52. } bind put
  53.  
  54. % Add entries to a new CIDFontType 0 font per documentation (FontMatrix)
  55. % or for .buildfont9 (FDArray.Private.Subrs).
  56. /.completefont9 {    % <cidfont0> .completefont9 <cidfont0>
  57.   currentglobal 3 1 roll dup gcheck setglobal
  58.   dup /FontMatrix known not {
  59.     dup /FontMatrix [0.001 0 0 0.001 0 0] put
  60.     dup /FDArray get {
  61.       /FontMatrix get [1000 0 0 1000 0 0] 1 index concatmatrix pop
  62.     } forall
  63.   } if
  64.   dup /FDArray get {
  65.         % Read the Subrs if necessary.
  66.     dup /Private get dup /Subrs known not {
  67.       dup /SubrCount .knownget {
  68.         % Stack: font Private SubrCount
  69.     currentglobal 3 1 roll 1 index gcheck setglobal
  70.     array 1 index /Subrs 3 -1 roll put
  71.         % Stack: font global Private
  72.     2 index begin begin .loadsubrs end end
  73.     setglobal
  74.       } {
  75.     pop
  76.       } ifelse readonly pop
  77.     } {
  78.       pop pop
  79.     } ifelse
  80.   } forall
  81.   3 -1 roll setglobal
  82. } bind def
  83.  
  84. % Read some Subrs for the current Type 1 subfont.
  85. % The subfont's Private dict is currentdict; the CIDFont itself is the
  86. % next dictionary on the stack.
  87. /.readsubrs {        % <Subrs> <start> .readsubrs <Subrs>
  88.   1 SubrCount 1 sub {
  89.     dup SDBytes mul SubrMapOffset add
  90.     dup SDBytes .readint exch SDBytes add SDBytes .readint
  91.     1 index sub string ReadString 2 index 3 1 roll put
  92.   } for
  93. } bind def
  94.  
  95. % Ensure that all the Subrs for the current Type 1 subfont are loaded.
  96. % The subfont's Private dict is currentdict; the CIDFont itself is the
  97. % next dictionary on the stack.
  98. /.loadsubrs {
  99.   Subrs length 0 ne {
  100.     SubrCache SubrMapOffset .knownget {
  101.         % We've already loaded some Subrs at this offset.
  102.         % Make sure we've got as many as we need.
  103.       dup length SubrCount lt {
  104.         % We need to load more.
  105.     SubrCount array exch 1 index copy length .readsubrs
  106.     SubrCache SubrMapOffset 2 index put
  107.       } if
  108.     } {
  109.         % We haven't loaded any Subrs at this offset yet.
  110.       SubrCount array 0 .readsubrs
  111.       SubrCache SubrMapOffset 2 index put
  112.     } ifelse
  113.     Subrs copy pop
  114.   } if
  115. } bind def
  116.  
  117. % ------ CIDFontType 1 (FontType 10) ------ %
  118.  
  119. dup 1 {
  120.   10 .checkfonttype pop
  121.   1 index exch .buildfont10 exch pop
  122. } bind put
  123.  
  124. % ------ CIDFontType 2 (FontType 11) ------ %
  125.  
  126. dup 2 {
  127.   11 .checkfonttype pop
  128.   1 index exch .buildfont11 exch pop
  129. } bind put
  130.  
  131. pop        % .cidfonttypes
  132.  
  133. % ---------------- Reading CIDFontType 0 files ---------------- %
  134.  
  135. /StartData {        % <(Binary)|(Hex)> <datalength> StartData -
  136.             %   (currentdict is CID font dict)
  137.         % If we're loading a resource file and the data format is
  138.         % binary, we can just save a pointer to the data and load it
  139.         % incrementally.
  140.   mark {
  141.         % Previous versions of this code made provisions for
  142.         % reading hex-encoded data incrementally.  Since hex data
  143.         % doesn't seem to be used in practice, we no longer bother.
  144.     2 index (Binary) ne { stop } if
  145.     currentfile .currentresourcefile ne { stop } if
  146.         % Hack: the pdfwrite driver relies on finalization to write
  147.         % out fonts.  However, the font may be finalized after the
  148.         % resource file, in which case the resource file will be
  149.         % closed.  So if the current output device is pdfwrite,
  150.         % don't use incremental loading.
  151.     currentdevice .devicename /pdfwrite eq { stop } if
  152.     currentfile fileposition
  153.   } .internalstopped {
  154.         % File is not positionable, or uses hex data.
  155.         % Load the data now.
  156.     cleartomark exch (Hex) eq
  157.       { { currentfile exch readhexstring pop } }
  158.       { { currentfile exch readstring pop } }
  159.     ifelse exch
  160.         % Stack: readproc length
  161.     dup 65400 le {
  162.         % readstring with a 0-length string causes a rangecheck,
  163.         % but a data length of 0 is allowed.
  164.       string dup () ne { 1 index exec } if
  165.     } {
  166.       mark 3 1 roll {
  167.         % Stack: mark str ... readproc length
  168.     dup 0 eq { pop exit } if
  169.     dup 65400 min dup string 3 index exec
  170.         % Stack: mark str ... readproc length newstrlen newstr
  171.     4 1 roll sub
  172.       } loop
  173.       counttomark 1 add 1 roll ]
  174.     } ifelse
  175.     /GlyphData exch def
  176.         % If we were reading hex data, skip past the >.
  177.     2 get { readhexstring } 0 get eq {
  178.       currentfile 0 (>) .subfiledecode dup flushfile closefile
  179.     } if
  180.   } {
  181.         % File is positionable and binary, just save a pointer.
  182.         % Stack: (Binary) length -mark- pos
  183.     /GlyphData 0 def
  184.     exch pop 3 -1 roll pop exch
  185.         % Stack: pos length
  186.     /DataSource currentfile 2 index () .subfiledecode true .reusablestream def
  187.     currentfile 3 1 roll add setfileposition
  188.   } ifelse
  189.   /SubrCache 10 dict def
  190.   CIDFontName currentdict /CIDFont defineresource pop
  191.   end            % CID font dict
  192.   end            % resource category dict
  193. } bind def
  194.  
  195. % Some Adobe fonts include the line
  196. %   /Setup /cid_Setup load def
  197. % This is apparently included only to prevent proper, conforming PostScript
  198. % interpreters (as opposed to ATM or a special Adobe font loader) from
  199. % loading the font, since Setup is not referenced anywhere else in the file.
  200. /cid_Setup { } def
  201.  
  202. currentdict end
  203.  
  204. % ---------------- Rendering ---------------- %
  205.  
  206. % ------ Generic ------ %
  207.  
  208. % Read a string at a given offset in a "file" (binary file or
  209. % GlyphData in RAM).
  210. /ReadString {        % <pos> <string> ReadString <string>
  211.   GlyphData 0 eq {
  212.     % Read from the file.
  213.     DataSource 3 -1 roll setfileposition
  214.     DataSource exch readstring pop
  215.   } {
  216.     % Read from a string or an array of strings.
  217.     GlyphData .stringsreadstring
  218.   } ifelse
  219. } bind def
  220. /.stringsreadstring    % <pos> <string> <strings> .stringsreadstring
  221.             %   <vmstring>
  222. { dup type /stringtype eq
  223.    { 3 1 roll length getinterval
  224.    }
  225.    {  {        % Stack: pos string glyphdata
  226.     dup 0 get length dup 4 index gt { exit } if
  227.     4 -1 roll exch sub 3 1 roll
  228.     dup length 1 sub 1 exch getinterval
  229.       }
  230.      loop
  231.         % Stack: pos string glyphdata glyphdata[0]length
  232.         % We know no request can span more than 2 strings.
  233.      3 index 3 index length add 1 index le
  234.       {        % Request fits in a single string: just return a substring.
  235.     pop 0 get 3 1 roll length getinterval
  236.       }
  237.       {        % Request spans 2 strings.  Copy the first part.
  238.     1 index 0 get 4 index 3 -1 roll 1 index sub getinterval
  239.     2 index copy
  240.         % Copy the second part.
  241.         % Stack: pos str glyphdata str1
  242.     length exch 1 get 0 3 index length
  243.     3 index sub getinterval 2 index 3 1 roll putinterval
  244.     exch pop
  245.       }
  246.      ifelse
  247.    }
  248.   ifelse
  249. } bind def
  250.  
  251. % Interpret a byte string as a (big-endian) integer.
  252. /.cvbsi            % <bytes> .cvbsi <int>
  253. { 0 exch { exch 8 bitshift add } forall
  254. } bind def
  255.  
  256. % Read an integer from binary data.
  257. /.readint        % <pos> <nbytes> .readint <int>
  258. { string ReadString .cvbsi
  259. } bind def
  260.  
  261. % ------ CIDFontType 0 ------ %
  262.  
  263. /.readglyphdata {
  264.   currentfont exch .type9mapcid
  265.   FDArray exch get exch
  266. } bind def
  267.  
  268. % BuildGlyph procedure for CIDFontType 0.
  269. % The name %Type9BuildGlyph is known to the interpreter.
  270. /.cid0buildstring 10 string def
  271. (%Type9BuildGlyph) cvn {    % <cidfont> <cid> %Type9BuildGlyph -
  272.   .currentglobal 3 1 roll 1 index gcheck .setglobal
  273.   1 index begin
  274.   dup .readglyphdata dup null eq {
  275.         % Substitute CID 0. **** WRONG ****
  276.     pop pop 0 .readglyphdata
  277.   } if
  278.         % Stack: cidfont cid subfont charstring
  279.   dup null eq { pop pop pop pop } {    %**** WRONG ****
  280.     4 -1 roll pop
  281.     3 1 roll exch dup 4 -1 roll 0 0 moveto
  282.     3 index /FontType get 2 eq { .type2execchar } { .type1execchar } ifelse
  283.   } ifelse    %**** WRONG ****
  284.   end
  285.   .setglobal
  286. } bind def
  287.  
  288. % ------ CIDFontType 2 ------ %
  289.  
  290. % BuildGlyph procedure for CIDFontType 2.
  291. % The name %Type11BuildGlyph is known to the interpreter.
  292. (%Type11BuildGlyph) cvn {    % <cidfont> <cid> %Type11BuildGlyph -
  293.         % We must be prepared for out-of-range CIDs.
  294.   2 copy { .type11mapcid } .internalstopped {
  295.     pop /CharStrings get /.notdef get
  296.   } if
  297.             % Stack: cidfont cid glyphindex
  298.   1 index exch .type42execchar
  299. } bind def
  300.  
  301. % ---------------- Define resources ---------------- %
  302.  
  303. languagelevel exch 2 .setlanguagelevel
  304.  
  305. % Define the CIDInit ProcSet resource.
  306. % The ProcSet dictionary is still on the stack.
  307.  
  308. % We might have loaded CMap support already.  However, Adobe's
  309. % protected font downloader defines a CIDInit ProcSet that will be
  310. % loaded from the filesystem later, so we must check specifically
  311. % for the ProcSet being defined in VM.
  312. /CIDInit /ProcSet 2 copy resourcestatus { pop 0 eq } { false } ifelse {
  313.   pop pop findresource dup length 4 index length add dict .copydict
  314.   4 -1 roll exch .copydict
  315. } {
  316.   3 -1 roll
  317. } ifelse exch defineresource pop
  318.  
  319. % Define the CIDFont resource category.
  320. % We break out .buildcidfont because it appears that at least for
  321. % Type 32 (CIDFontType 4) fonts, the font can be registered in the Font
  322. % category with only a CIDFontType and no FontType.
  323. /.buildcidfont {        % <name> <fontdict> .buildcidfont
  324.                 %   <name> <cidfont>
  325.   dup /CIDFontType get //.cidfonttypes exch get exec
  326. } odef
  327.  
  328. /CIDFont /Generic /Category findresource dup length dict .copydict
  329. dup /InstanceType /dicttype put
  330. dup /DefineResource {
  331.   .buildcidfont
  332.   /Generic /Category findresource /DefineResource get exec
  333. } put
  334. % CIDFonts may be defined in CFF OpenType files.
  335. % Check for this here.
  336. /.loadcidfontresource {
  337.   dup .ResourceFile {
  338.     {.loadfont} .execasresource
  339.   } {
  340.     dup /undefinedresource signalerror
  341.   } ifelse
  342. } bind def
  343. dup /.LoadResource {
  344.   currentglobal {
  345.     .loadcidfontresource
  346.   } {
  347.     true setglobal {.loadcidfontresource} stopped false setglobal {stop} if
  348.   } ifelse
  349. } bind put
  350.  
  351. /Category defineresource pop
  352.  
  353. % Add the new FontType resources.
  354.  
  355. 9 1 11 { dup /FontType defineresource pop } for
  356.  
  357. % Add the new FMapType resource.
  358.  
  359. 9 dup /FMapType defineresource pop
  360.  
  361. % Define the CIDMap resource category.
  362. % These aren't documented, but it's clear what they are for:
  363. % to give names to CIDMaps for CIDFontType 2 fonts.
  364.  
  365. /CIDMap /Generic /Category findresource dup length dict .copydict
  366. dup /.CheckResource {
  367.     % Allow a string, an array of strings, or (as of Adobe release 3011)
  368.     % a dictionary.
  369.   dup type dup dup /stringtype eq exch /dicttype eq or {
  370.     pop true
  371.   } {
  372.     dup /arraytype eq exch /packedarraytype eq or {
  373.       true exch { type /stringtype eq and } forall
  374.     } {
  375.       false
  376.     } ifelse
  377.   } ifelse
  378. } bind put
  379. /Category defineresource pop
  380.  
  381. .setlanguagelevel
  382.